home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / one check (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  102 lines
  1. 1 REM   JEFF JESSEE
  2. 2 REM   812 COLDWATER DR.
  3. 3 REM   CASSELBERRY,FL. 32707
  4. 5 PRINT"[147]";TAB(16);"ONE  CHECK[146]"
  5. 6 PRINT:PRINT:PRINTTAB(15);"COPYRIGHT BY"
  6. 7 PRINT:PRINTTAB(12);"CREATIVE COMPUTING"
  7. 8 PRINTTAB(14);"P.O. BOX 789-M"
  8. 9 PRINTTAB(7);"MORRISTOWN, NEW JERSEY 07960"
  9. 10 FOR I=1 TO 2000:NEXT I
  10. 20 PRINT"[147]        WELCOME TO ONE CHECK"
  11. 22 PRINT"  48 CHECKERS ARE PLACED ON THE TWO"
  12. 24 PRINT"OUTSIDE SPACES OF A CHECKERBOARD.
  13. 26 [153]"  THE OBJECT IS TO REMOVE AS MANY "
  14. 28 [153]"CHECKERS AS POSSIBLE BY DIAGONAL JUMPS."
  15. 30 [153]"  IT IS EASY TO REMOVE ALL BUT 10 "
  16. 32 [153]"TO 20 CHECKERS, A CHALLENGE TO REMOVE"
  17. 34 [153]"ALL BUT 4 TO 9, AND A SUBSTANTIAL FEAT"
  18. 36 [153]"TO REMOVE ALL BUT 1 TO 3."
  19. 38 [153]"  USE THE NUMBERED BOARD TO INDICATE"
  20. 40 [153]"THE SQUARE YOU WISH TO JUMP FROM AND TO."
  21. 42 [153]"  FOR 2-DIGIT NUMBERS, NO RETURN IS"
  22. 44 [153]"REQUIRED. "
  23. 46 [153]"  WHEN YOU HAVE NO POSSIBLE JUMPS,INPUT"
  24. 48 [153]"A ZERO TO END GAME."
  25. 50 [153]"       HIT ANY KEY TO BEGIN";
  26. 55 [161] G$:[139] G$[178]""[167]55
  27. 57 [153]"":[153]
  28. 70 [134] A(64):[151]59468,12
  29. 80 [129] J[178]1[164]64:A(J)[178]1:[130]J
  30. 85 [129] J[178]19[164]43 [169]8:[129]I[178]J[164]J[170]3:A(I)[178]0:[130]I,J
  31. 90 [141] 900:[141] 1000
  32. 95 M[178]0:BL[178]0
  33. 99 [161] G$:[161] G$:[161] G$
  34. 100 [153]"":[153]:[153]"";[163]25);"      ";
  35. 102 [153]"":[153]:[153]"";[163]25);"JUMP FROM    CMDCMDCMD";
  36. 105 [141] 1100:F[178]YY:[139] F[178]0[167] 500
  37. 110 [153]"":[153]:[153]"";[163]25);"TO    CMDCMDCMD";
  38. 115 [141] 1100:T[178]YY
  39. 120 F1[178][181]((F[171]1)[173]8)
  40. 130 F2[178]F[171]8[172]F1
  41. 140 T1[178][181]((T[171]1)[173]8)
  42. 150 T2[178]T[171]8[172]T1
  43. 160 [139] F1[177]7 [167] 230
  44. 170 [139] T1[177]7 [167] 230
  45. 180 [139] F2[177]8 [167] 230
  46. 190 [139] T2[177]8 [167] 230
  47. 200 [139] [182](F1[171]T1)[179][177]2 [167] 230
  48. 210 [139] [182](F2[171]T2)[179][177]2 [167] 230
  49. 212 [139] A((T[170]F)[173]2)[178]0 [167] 230
  50. 215 [139] A(F)[178]0 [167] 230
  51. 220 [139] A(T)[178]1 [167] 230
  52. 225 [137] 250
  53. 230 [137] 99
  54. 250 A(T)[178]1
  55. 260 A(F)[178]0
  56. 270 A((T[170]F)[173]2)[178]0
  57. 290 M[178]M[170]1
  58. 300 [141]1000:[143] PRINT BOARD
  59. 310 [137] 100
  60. 500 S[178]0:[153]"":[153]
  61. 510 [129] I[178]1[164]64:S[178]S[170]A(I):[130]I
  62. 520 [153]"";[163]25);"YOU MADE     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"M;"JUMPS CMDCMDCMDCMDCMDCMDCMD";
  63. 530 [153]"AND LEFTCMDCMDCMDCMDCMDCMDCMDCMD";S;"PIECES"
  64. 548 [153]:[153][163]25);"ANOTHER GAME?"
  65. 550 [161] G$:[139] G$[178]""[167]550
  66. 554 [139] G$[178]"N"[167]10000
  67. 556 [139] G$ [179][177]"Y"[167]550
  68. 560 [137] 80
  69. 900 [153]"LOAD";:[129] Y[178]1[164]8:[153]"";:[129] X[178]1[164]8
  70. 910 [153] [163](X[171]1)[172]3);8[172](Y[171]1)[170]X;"CMD";
  71. 920 [130] X:[153]:[130] Y
  72. 930 [153]"";
  73. 940 [129] Y[178]1[164]8
  74. 950 [129] X[178]1[164]8:[153]"(null)TAB(TAB(";:[130]X:[153]"FN"
  75. 960 [129] X[178]1[164]8:[153]"FN  ";:[130]X:[153]"FN"
  76. 970 [129] X[178]1[164]8:[153]"FN";:[130]X:[153]"FN"
  77. 980 [130]Y:[153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
  78. 985 [153]" 0 TO STOP";
  79. 990 [142]
  80. 1000 [153]"";:[129] J[178]1 [164] 57 [169] 8:[153]"";:[129] I[178]J [164] J[170]7
  81. 1010 [139] A(I)[178]1 [167] [153]"(null)";
  82. 1020 [139] A(I)[178]0 [167] [153]" ";
  83. 1030 [130] I:[153]:[153]:[130] J
  84. 1040 [142]
  85. 1100 [143] INPUT SUB
  86. 1101 [161] G$:[161] G$
  87. 1102 [161] G$:[139] G$[178]""[167] [141] 1500:[137] 1102
  88. 1105 [139] G$[179]"0"[176] G$[177]"9"[167] 1102
  89. 1110 [153] G$;:YY[178][197](G$)
  90. 1115 [161] H$:[139] H$[178][199](13)[167] [153]" ";H$:[142]
  91. 1120 [139] H$[178]""[167] [141] 1500:[137] 1115
  92. 1125 [139] H$[179]"0"[176] H$[177]"9"[167] 1115
  93. 1130 G$[178]G$[170]H$:YY[178][197](G$):[153]H$;:[142]
  94. 1500 [143]  BLINK CURSOR
  95. 1510 BL[178][168] BL
  96. 1520 [139] BL [167] [153]" CMD";
  97. 1530 [139] [168] BL [167] [153]"SPC(CMD";
  98. 1540 [129]XX[178]1[164]100:[130]XX:[142]
  99. 10000 [153]"LOADTHANKS FOR PLAYING!!!"
  100. 10010 [153]"TO PLAY AGAIN, TYPE 'RUN'."
  101. 10020 [153]"TO LOAD ANOTHER GAME, TYPE 'LOAD'.":[128]
  102.